home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc vi 88.d64 / dealing cards.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  637b  |  5 lines
  1. 40 FORT=1TO800:NEXTT:V=54296:W=54276:A=54277:HF=54273:LF=54272:FORY=1TO7:POKEV,15:POKEW,129:POKEA,67:POKEHF,70:POKELF,125:FORX=1TO600:NEXTX:POKEHF,0:POKELF,0:POKEW,0:NEXTY:PRINT"[147]":POKE53280,11:POKE53281,11:PRINT"[155]":PRINT"  IF YOU LIST THIS PROGRAM, YOU WILL":PRINT
  2. 150 PRINT"  SEE THAT THE SEVEN CARDS SOUND":PRINT:PRINT"  EFFECT COMES FROM LINES 70 AND 120.":PRINT:PRINT"  IN ACTUAL USE, REMOVE THESE TWO LINES,":PRINT"  AND MAKE THIS SHORT PROGRAM A SUB-":PRINT:PRINT"  ROUTINE THAT YOU CALL UP AFTER EACH":PRINT
  3. 200 PRINT"  CARD IS PUT ON THE SCREEN.  THIS":PRINT:PRINT"  SOUND EFFECT ADDS REALISIM TO":PRINT:PRINT"  TO YOUR CARD GAME WHEN DEALING.":PRINT:PRINT"  ONLY LINES 50, 60, 80, 90, 100 AND":PRINT:PRINT"  110 ARE NEEDED FOR THE ROUTINE."
  4. 250 FORT=1TO8000:NEXTT
  5.